;solution for euler 6

(defun solve-euler6 () 
	(defvar sosq 0) 
	(defvar sqos 0)  ;sosq- sum of squares  sqos- square of sum
	(dotimes (i 101)
		(setq sosq (+ sosq (* i i)))
		(setq sqos (+ sqos i)))
	(setq sqos (* sqos sqos))
	(format t "Euler 6: ~a" (abs (- sqos sosq))))